NY Times US States Data Analysis

db <- dbConnect(SQLite(), dbname="../COVIDDB/CORVID.sqlite3")
shutdown <- dbGetQuery(db, "SELECT * from shutdown;")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
  labs(title="Elasped Days from First Confirmed Case(WA)",
       x="Delayed in Days",y="US States(and DC",
       caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Warning: Removed 5 rows containing missing values (position_stack).

Summary of Cases,Deaths and Death Rate by Date

Summary of Cases and Deaths by State

Summary of Ohio Deaths and Cases

statesSum <-us_states %>% group_by(state) %>% 
  summarise(
    tc = sum(cases),
    td = sum(deaths)) 

ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=tc,col=tc)) +
   scale_x_continuous(labels = scales::comma) +
  labs(title="Total Cases by States",subtitle="(As of May 18, 2020)",
       x="Total Cases",y="US States")

ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=td,col=td)) +
  scale_x_continuous(labels = scales::comma) +
  labs(title="Total Deaths by States",subtitle="(As of May 18, 2020)",x="Total Deaths",y="US States")

dbDisconnect(db)